home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1993 April: Penguin on DISC / ADC Developer CD (1993-04) (''Penguin On DISC'')_iso / Dev.CD Apr 93.iso / Utilities / MPW Interfaces 7.1 Beta / PInterfaces / Desk.p < prev    next >
Encoding:
Text File  |  1992-08-28  |  1.3 KB  |  72 lines  |  [TEXT/MPS ]
  1.  
  2. {
  3. Created: Sunday, September 15, 1991 at 10:14 PM
  4.  Desk.p
  5.  Pascal Interface to the Macintosh Libraries
  6.  
  7.   Copyright Apple Computer, Inc. 1985-1991
  8.   All rights reserved
  9. }
  10.  
  11.  
  12. {$IFC UNDEFINED UsingIncludes}
  13. {$SETC UsingIncludes := 0}
  14. {$ENDC}
  15.  
  16. {$IFC NOT UsingIncludes}
  17.  UNIT Desk;
  18.  INTERFACE
  19. {$ENDC}
  20.  
  21. {$IFC UNDEFINED UsingDesk}
  22. {$SETC UsingDesk := 1}
  23.  
  24. {$I+}
  25. {$SETC DeskIncludes := UsingIncludes}
  26. {$SETC UsingIncludes := 1}
  27. {$IFC UNDEFINED UsingTypes}
  28. {$I $$Shell(PInterfaces)Types.p}
  29. {$ENDC}
  30. {$IFC UNDEFINED UsingQuickdraw}
  31. {$I $$Shell(PInterfaces)Quickdraw.p}
  32. {$ENDC}
  33. {$IFC UNDEFINED UsingEvents}
  34. {$I $$Shell(PInterfaces)Events.p}
  35. {$ENDC}
  36. {$SETC UsingIncludes := DeskIncludes}
  37.  
  38. CONST
  39. accEvent = 64;
  40. accRun = 65;
  41. accCursor = 66;
  42. accMenu = 67;
  43. accUndo = 68;
  44. accCut = 70;
  45. accCopy = 71;
  46. accPaste = 72;
  47. accClear = 73;
  48. goodbye = -1;    {goodbye message}
  49.  
  50. FUNCTION OpenDeskAcc(deskAccName: Str255): INTEGER;
  51.  INLINE $A9B6;
  52. PROCEDURE CloseDeskAcc(refNum: INTEGER);
  53.  INLINE $A9B7;
  54. PROCEDURE SystemClick(theEvent: EventRecord;theWindow: WindowPtr);
  55.  INLINE $A9B3;
  56. FUNCTION SystemEdit(editCmd: INTEGER): BOOLEAN;
  57.  INLINE $A9C2;
  58. PROCEDURE SystemTask;
  59.  INLINE $A9B4;
  60. FUNCTION SystemEvent(theEvent: EventRecord): BOOLEAN;
  61.  INLINE $A9B2;
  62. PROCEDURE SystemMenu(menuResult: LONGINT);
  63.  INLINE $A9B5;
  64.  
  65.  
  66. {$ENDC} { UsingDesk }
  67.  
  68. {$IFC NOT UsingIncludes}
  69.  END.
  70. {$ENDC}
  71.  
  72.